COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	Argument list:
 00003 ENDMK
⊗;
COMMENT Argument list:

	1 - Amplitude
	2 - Duration of rise time
	3 - Duration of decay time
	4 - Total time
	5 - Array
	6 - Initial point in array
;
ARRAY F2(512);

INSTRUMENT FOO;
OUTA←OUTA+OSCIL(LINEN(P3,P2/8,P2/4,P2,F2,0),MAG*P4,F1);
END;

FOR I←0 STEP 1 UNTIL 127 DO F2[I]←I/128;
FOR I←128 STEP 1 UNTIL 255 DO F2[I]←1;
FOR I←256 STEP 1 UNTIL 383 DO F2[I]←(383-I)/128;